home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
tttool30.arc
/
IOTTT.DEM
< prev
next >
Wrap
Text File
|
1986-09-28
|
3KB
|
74 lines
Program Illustrating_Screen_Editing;
{$I Decl.TTT}
{$I Fastwrite.TTT}
{$I Misc.TTT}
{$I IO.TTT}
var
Str1,
Str2,
Str3,
Str4,
Str5,
Str6,
Str7,
Str8 : string80;
Code : integer;
begin {test program}
Str1 := '';
Str2 := '';
Str3 := '';
Str4 := '';
Str5 := '';
Str6 := 'TX';
Str7 := '';
Str8 := '';
IO_Setfields(8);
IO_SetColors(15,4,11,1,14,4);
IO_SoundBeeper(false);
IO_DefineStr(1, 1,2,1,2, 30,6,Str1,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');{name}
IO_DefineStr(2, 1,3,1,3, 30,7,Str2,'*******************************');{Co.}
IO_DefineStr(3, 2,4,2,4, 30,8,Str3,'*******************************');{ad1}
IO_DefineStr(4, 3,5,3,5, 30,9,Str4,'*******************************');{ad2}
IO_DefineStr(5, 4,6,4,6, 30,10,Str5,'@@@@@@@@@@@@@@@@');{city}
IO_DefineStr(6, 4,7,5,7, 55,10,Str6,'!!');{state}
IO_DefineStr(7, 4,8,6,8, 65,10,Str7,'#####-####');{zip}
IO_DefineStr(8, 5,1,7,1, 30,12,Str8,'(###) ###-####'); {work Phone}
IO_DefineMsg(1, 20,25, 'Name is automatically set to capitals');
IO_DefineMsg(2, 20,25, 'Enter Company Name and address');
IO_DefineMsg(5, 20,25,'Now you can only type alphas and punctuation');
IO_DefineMsg(6, 20,25,'Default is set to Texas');
IO_DefineMsg(7, 20,25,'Zip and phone number must be numeric');
ClearText(1,1,80,25,red,lightgray);
Box(1,1,80,25,red,lightgray,3);
WriteCenter(2,blue,lightgray,'TechnoJocks Turbo Toolkit');
WriteCenter(3,white,lightgray,'Screen Input Routines Demonstration');
WriteAT(12,6,blue,lightgray,'Incumbents Name =>');
WriteAT(20,7,blue,lightgray,'Company =>');
WriteAT(20,8,blue,lightgray,'Address =>');
WriteAT(23,10,blue,lightgray,'City =>');
WriteAT(48,10,blue,lightgray,'State');
WriteAT(60,10,blue,lightgray,'Zip');
WriteAT(23,12,blue,lightgray,'Phone =>');
WriteAT(10,16,white,lightgray,'Instructions: [End to quit]');
WriteAT(10,17,blue,lightgray,'This is a mock up of a data entry screen. Simply');
WriteAT(10,18,blue,lightgray,'enter some values and press enter. Use the arrow');
WriteAT(10,19,blue,lightgray,'keys to move between fields. Note the following:');
WriteAT(10,20,white,lightgray,'End to finish entry Ins toggle insert on and off');
WriteAT(10,21,white,lightgray,'Alt-D delete current field Alt-E delete all fields');
WriteAT(10,22,white,lightgray,'Ctrl-Right shift right Ctrl-Left shift left');
WriteAT(10,23,white,lightgray,'Tab shift right Shift-Tab shift left');
IO_Edit(Code);
IO_ResetFields;
Clrscr;
Writeln('Run DemoTTT.com for the main demo program');
write('Technojocks Turbo Toolkit');
end.